home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / zbpc_460.zip / GRAPHICS.EXE / ZROSE.BAS < prev    next >
BASIC Source File  |  1991-03-18  |  896b  |  21 lines
  1. 00010 MODE 5: REM************ NEW USR8/USR9 SIN/COS METHOD ******************
  2. 00040 FOR R=0 TO 128 STEP 2
  3. 00050   Z# = USR 9(3*R)*6.41E-3 : X1 = USR 9(R)*Z#+512 : Y1 = USR 8(R)*Z#+384
  4. 00060   B=R+42 : Z2# = USR 9(3*B)*6.41E-3
  5. 00070   X2 = USR 9(B)*Z2#+512 : Y2 = USR 8(B)*Z2#+384
  6. 00080   PLOT X1,Y1 TO X2,Y2
  7. 00090 NEXT
  8. 00100 IF INKEY$="" THEN 100
  9. 01000 REM ***************** SLOW SIN/COS METHOD **************************
  10. 01010 DEFDBL A-Z : MODE 5
  11. 01020 PI=3.1415
  12. 01030 FOR R=0 TO PI STEP PI/75 : TRON X
  13. 01040   Z=COS(3*R)*420 :X1=COS(R)*Z+512 :Y1=SIN(R)*Z+384
  14. 01050   B=R+PI/3 :Z2=COS(3*B)*420
  15. 01060   X2=COS(B)*Z2+512 :Y2=SIN(B)*Z2+384
  16. 01070   PLOT X1,Y1 TO X2,Y2
  17. 01080 NEXT
  18. 01090 IF INKEY$="" THEN 1090
  19. 02000 PRINT"NEW METHOD SIZE:";LINE 1000-LINE 10
  20. 02010 PRINT"OLD METHOD SIZE:";LINE 2000-LINE 1000
  21.